#!/usr/bin/runhugs
-- created on 2009-05-31
import System.Environment(getArgs)
import Data.List(unfoldr,intersperse)

chop k | k>0 = unfoldr f where
 f [] = Nothing
 f s  = Just $ splitAt k s

main = do
 [k,s@(_:_)] <- getArgs
 let out = show . concat . intersperse " "
     res = chop (read k) s
 putStrLn $ "filter(/=' ')" ++ out res
